home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / jobs.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-04-17  |  7.0 KB  |  128 lines
  1. 10  ' ********************************************************************
  2. 20  ' * Program: JOBS.BAS                     Programmer: Kyle Cummings  *
  3. 30  ' * Date: 04-12-85                                                   *
  4. 40  ' * Installation: Joppa Facilities                                   *
  5. 50  ' * Purpose: To have an active advertisement for the CummingsWare    *
  6. 60  ' *          product, "Job Search".                                  *
  7. 70  ' *                                                                  *
  8. 80  ' *                                                                  *
  9. 90  ' ********************************************************************
  10. 100  CLS:KEY OFF
  11. 110  ' ***** Main logo screen *****
  12. 120  KC=223
  13. 130  LOCATE 4,1
  14. 140  PRINT "    ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC)
  15. 150  PRINT "  ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);"    ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC)
  16. 160  PRINT CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC)
  17. 170  PRINT CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC)
  18. 180  PRINT CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC)
  19. 190  PRINT "  ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);"    ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);"  UMMINGS"
  20. 200  PRINT "    ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC)
  21. 210  PRINT
  22. 220  PRINT "             ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);"      ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC)
  23. 230  PRINT "             ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);"      ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC)
  24. 240  PRINT "             ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);"      ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC)
  25. 250  PRINT "             ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);"  ";CHR$(KC);CHR$(KC);"  ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC)
  26. 260  PRINT "             ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC)
  27. 270  PRINT "             ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);"  ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);"  ARE"
  28. 280  PRINT "             ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);"      ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC)
  29. 290  PRINT:PRINT
  30. 300  WA$="PRESENTS:":KK=1
  31. 310  FOR I=79 TO 35 STEP -1
  32. 320  LOCATE ,I:PRINT MID$(WA$,1,KK);
  33. 330  IF I<71 THEN LOCATE ,I+LEN(WA$):PRINT " ";
  34. 340  KK=KK+1:IF KK>=LEN(WA$) THEN KK=LEN(WA$)
  35. 350  NEXT I
  36. 360  PLAY "T200O3MFE4D8C4C8C4D8E4E8E8D8C8D8E8D8C4O2B8O3MLC2C8MN"
  37. 370  ' ***** Intro Menu part 2 *****
  38. 380  CLS
  39. 390  ' ***** First line *****
  40. 400  PRINT "                   ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);
  41. 410  PRINT "        ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);
  42. 420  PRINT "        ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC)
  43. 430  ' ***** Second line *****
  44. 440  PRINT "                     ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);
  45. 450  PRINT "        ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);"  ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);
  46. 460  PRINT "        ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);"    ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC)
  47. 470  ' ***** Third line *****
  48. 480  PRINT "                     ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);
  49. 490  PRINT "      ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);"      ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);
  50. 500  PRINT "      ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);"    ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC)
  51. 510  ' ***** Fourth line *****
  52. 520  PRINT "                     ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);
  53. 530  PRINT "      ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);"      ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);
  54. 540  PRINT "      ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC)
  55. 550  ' ***** Fifth line *****
  56. 560  PRINT "             ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);"    ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);
  57. 570  PRINT "      ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);"      ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);
  58. 580  PRINT "      ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);"    ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC)
  59. 590  ' ***** Sixth line *****
  60. 600  PRINT "             ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);"    ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);
  61. 610  PRINT "        ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);"  ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);
  62. 620  PRINT "        ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);"    ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC)
  63. 630  ' ***** Seventh line *****
  64. 640  PRINT "               ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);
  65. 650  PRINT "            ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);
  66. 660  PRINT "        ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC)
  67. 670  PRINT:PRINT:PRINT
  68. 680  ' ***** First line *****
  69. 690  PRINT "                    ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC)
  70. 700  ' ***** Second line *****
  71. 710  PRINT "                  ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);"    ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC)
  72. 720  ' ***** Third line *****
  73. 730  PRINT "                  ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC)
  74. 740  ' ***** Fourth line *****
  75. 750  PRINT "                    ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC)
  76. 760  ' ***** Fifth line *****
  77. 770  PRINT "                        ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC)
  78. 780  ' ***** Sixth line *****
  79. 790  PRINT "                  ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);"    ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC)
  80. 800  ' ***** Seventh line *****
  81. 810  PRINT "                    ";CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC);CHR$(KC)
  82. 820  WA$="EARCH"
  83. 830  KK=1
  84. 840  FOR I=23 TO 15 STEP -1
  85. 850  LOCATE I,32+KK:PRINT MID$(WA$,KK,1);
  86. 860  LOCATE I+1,32+KK:PRINT " ";
  87. 870  FOR JKC=1 TO 50:NEXT JKC
  88. 880  NEXT I
  89. 890  KK=KK+1
  90. 900  IF KK>LEN(WA$) THEN GOTO 920
  91. 910  GOTO 840
  92. 920  PLAY "T200O3MFD8E4E8E4F8G4G8G4G8G4D8D4E8MLD2D8MN"
  93. 930  ' ***** Give the main info *****
  94. 940  CLS
  95. 950  LOCATE ,10:PRINT "KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  96. 960  LOCATE ,10:PRINT "OPEN                                                           OPEN"
  97. 970  LOCATE ,10:PRINT "OPEN        ->FIND THE JOB WHICH MATCHES YOUR SKILLS!!<-       OPEN"
  98. 980  LOCATE ,10:PRINT "OPEN                                                           OPEN"
  99. 990  LOCATE ,10:PRINT "OPEN          FOR SALE: 5 1/4";CHR$(34);" FLOPPY WITH THREE FILES:        OPEN"
  100. 1000  LOCATE ,10:PRINT "OPEN                                                           OPEN"
  101. 1010  LOCATE ,10:PRINT "OPEN  (1) dBASE II FILE OF 3,000 BUSINESSES IN THE U.S.A.      OPEN"
  102. 1020  LOCATE ,10:PRINT "OPEN      CONTAINS CONTACT NAME, COMPANY, ADDRESS,             OPEN"
  103. 1030  LOCATE ,10:PRINT "OPEN      STATE AND ZIP CODE.                                  OPEN"
  104. 1040  LOCATE ,10:PRINT "OPEN  (2) COMMAND FILE TO USE CONTINUOUS FORM ENVELOPES &      OPEN"
  105. 1050  LOCATE ,10:PRINT "OPEN      dBASE FILE.                                          OPEN"
  106. 1060  LOCATE ,10:PRINT "OPEN  (3) COMPLETE INSTRUCTIONS ON JOB SEARCH METHODS.         OPEN"
  107. 1070  LOCATE ,10:PRINT "OPEN                                                           OPEN"
  108. 1080  LOCATE ,10:PRINT "OPEN     DISK FORMAT FOR IBM-PC. AVAILABLE FOR $20.00 FROM:    OPEN"
  109. 1090  LOCATE ,10:PRINT "OPEN                                                           OPEN"
  110. 1100  LOCATE ,10:PRINT "OPEN                 ====== CUMMINGSWARE ======                OPEN"
  111. 1110  LOCATE ,10:PRINT "OPEN                       200 KANE COURT                      OPEN"
  112. 1120  LOCATE ,10:PRINT "OPEN                      JOPPA, MD. 21085                     OPEN"
  113. 1130  LOCATE ,10:PRINT "SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  114. 1140  PRINT "Files include: Tips on resume writing, job interviews and uses the computer"
  115. 1150  PRINT "               to select companies in a geographical area for automatic"
  116. 1160  PRINT "               envelope addressing."
  117. 1170  PLAY "T200O3MFG8A4F8A4F8A8O4MLC4C8MNO3B8A8G4E8G4E8G2"
  118. 1180  PLAY "T200O3MFE4D8C4C8C4D8E4E8E8D8C8D8E8D8C4O2B8O3MLC2C8MN"
  119. 1190  WA$="====== CUMMINGSWARE ======"
  120. 1200  LOCATE 25,31:PRINT "Press ENTER to exit";
  121. 1210  INKC$=INKEY$:IF INKC$="" THEN GOTO 1230
  122. 1220  IF INKC$=CHR$(13) THEN GOTO 1270
  123. 1230  FOR JKC=1 TO 70:NEXT JKC
  124. 1240  LOCATE 16,28:PRINT WA$;
  125. 1250  WA$=MID$(WA$,2,LEN(WA$))+LEFT$(WA$,1)
  126. 1260  GOTO 1210
  127. 1270  CLS:SYSTEM
  128.